home *** CD-ROM | disk | FTP | other *** search
/ Graphics Plus / Graphics Plus.iso / general / fractal / kaos.lha / dimslib / dims_go_proc.c < prev    next >
Encoding:
C/C++ Source or Header  |  1990-01-25  |  1.0 KB  |  42 lines
  1. /*
  2. ### procedure for computing lyaupunov exponents ###
  3. */
  4. #include <stdio.h>
  5.  
  6. void dims_go_proc()
  7. {
  8.     void graph_proc(),dims_compute();
  9.     extern int graph_logx,graph_logy;
  10.     extern int tser_len;
  11.     extern char string2[],string[],source_dir[];
  12.     extern FILE *fp_graph_tochild;
  13.  
  14.     /* DEVELOP */
  15.     extern int dims_type_option;
  16.     if(dims_type_option == 1 || dims_type_option == 3){
  17.         system_mess_proc(1,"This dimension is not installed");
  18.     }
  19.     else if(dims_type_option == 4){
  20.         system_mess_proc(1,"This user dimension is empty now");
  21.     }
  22.  
  23.     all_reset();
  24.  
  25.     /* set log flags */
  26.     graph_logx = 1;
  27.     graph_logy = 1;
  28.         if(graph_logx ==1 && graph_logy ==1)
  29.                 sprintf(string,"-x l -y l");
  30.         else if(graph_logx ==1)
  31.                 sprintf(string,"-x l");
  32.         else if(graph_logy ==1)
  33.                 sprintf(string,"-y l");
  34.         else
  35.                 sprintf(string,"");
  36.         
  37.     sprintf(string2,"%s/bin/sgraph %s -c x",source_dir,string);
  38.     graph_proc(string2);
  39.     dims_compute(fp_graph_tochild);
  40.     fclose(fp_graph_tochild);
  41. }
  42.